Timex Sinclair Users Group Mile High Chapter

KEK ATA AAT ATAK EKA TARA AAA AA AA LAK ARA RAAT A AAT AAA ATTA

TIMEX SINCLAIR USERS GROUP
MILE HIGH CHAPTER

EXEEKKEEKSERAAAATEKSEAE SASK ETESSREE ALATA AA STARA TESTE TATE ES
C/O FRANK HOLLAND, 1423 S. PEARL ST., DENVER CO 80210, 733-8103
AUG. 1987. The meeting is on the 27th, at 7:30 PM, at my home.

XXX££ZkXxXEXXkExXxixixzxikxkritiXxxxxxtrtfrxixiiriirrxititixrixitirxixkx

Some of you may have noticed that the July newsletter didn’t
got out. That was because I was in the hospital with a
collapsed lung during the last of June. It really wasn't
anything SERIDUS, it just took up valuable time that I could
have devoted to something else (ANYthing else).

Anyway, the queue got backed up (job, yard work, love-life,
studies, other clubs, etc) and the newsletter had to wait.

I still have a lot of club projects to catch up on, such as
sorting out the exchange programs from Cleveland (and getting
Howard the Duck back home), a MC program for Shane, and copying
numerous club programs for Rod. I've accomplished 1/2 of each
and the summer doldrums are upon us.

HOpPRTULEY z ENEP YEAR will ee back to normal (? ?NORMAL??)

According to the new E. ARTHUR BROWN catalog: A&J MICRODRIVE
won?t be building any more units, and there are SUDpEREd to be
only. 30 drives left in stock. : 5

We lost ‘Tom Beaman to the clutches of IBM so he is selling his
Timex Sud i
$175 or best offers.

TS1000 with add-on keuBGard.
A&I microdrive (1 drive).
AERCO centronics IDEO TAGES
many programs. .., : SEM
books, SYNC & SYNTAX magazines. v D z

1-772-2073 HOME (evenings) a
1-772-3933 WORK

Also, we lost Jeff Brothers to a Franklin Ace several months
ago. Now he has donated all of his T/S library and equipment to
the club. Some of the books will be kept for the permanent
library and some will be for sale. The hardware will be for
sale.

1'11 keep you informed about what there is.... as soon as he
gets it all hauled over here and I can get it cataloged.

pn—--—————————-w—-————————Ó i dd

p—--."""-——————————————— ee rs es ee cree re es ee re oe omman ce ee re oomen dd

REPRINTED FROM "SUM" JAN °86

2068 POWER SUPPLY: MAKE IT COOLER & QUIETER — J. W. Dowell

I have discovered that programs SAVE’d to cassette tapes from
the TS-2068 can have a very high noise/scratch background level
making verification and loading a somewhat iffy proposition.

The best way to determine if you have this problem is to
monitor the signal on the tape aurally during loading. The
background noise can be heard before the loader and between the
leader and the program. If this condition creates a problem
for you, the following will provide a solution.

The TS-2068, when operated from a DC supply voltage of more
than 13 volts, creates a superflous noise on the internal power
distribution lines, probably from the action of the switching
voltage regulator which supplies the regulated 5 volt supply.
:' Somehow, this noise finds its way to the SPKR/TAPE output of
the SCLD chip. For some unknown reason, if the DC supply
voltage is less than 13 volts this noise disapears. I have
found that a supply voltage of about 8 volts gives very good
results. There are two drawbacks: At less than 15 volts you get
NO COLOR output and the A&J Microdrive will not work.

Because I sometimes wish to use the Microdrive and the
Cassette tape storage interchangeable, as in taking programs
from the Microdrive and giving them long term storage on the
cheaper cassettes, I developed a voltage reducer to put in the
cord of the TS-2068 power unit so that I can change the supply
"voltage from the normally used 15 volts to a lower 8 volts when
I want to SAVE a program to cassette tape. The supply voltage
can be changed back and forth without affecting any of the
program or data stored in memory. p ORAE

Also, by operating the TS-2068 at a normal 15-16. volt level
rather than the power unit?s output of about 21 volts, the heat
dissapation in the TS-2068 is reduced considerbly. f

The schematic for the voltage reducer is ` self-explanatory.

Two words of caution, however. Although the regulating
transistor, 2N3055 or similar, is capable of passing many amps
of current, it must be well heat sinked as it dissipates about
5 watts wnen delivering the low voltage output. ' When cutting
the cord of the power unit, verify the polarity of the leads
when they are reconnected remembering that the outer contact of
the concentric connector is positive and the inner contact is
negative. `

CE DCN dA "Are 2N BOSE or EQUIV .
. c € MEME

20 Volks

\npof
ees

Cette THE RIGHT PRORORTI EINS. z

= -—Wes'Brzozowski, SINCUS
Before: vesding ‘too far into this, go grab a newspaper or | some

other publication that has print laid out in narrow columns. Count

) the number of letters ànd-blank'spaces-on several lines. |: Chances o
= are, you'll: find ERE each pine contanw a DIPFERENI. number of ''
characters. IET Ex Ge a

This is ond with a —Q cal led Proportional | a m It

turns out that fat characters like"M take take up a whole lot more
space than the tiny letter i; so` ‘each’ character. is "given only as
much room:as it needs. Not: only is this much >` more pleasing to ‘the.

eye, it allows à surprising amount et extra text to be^ “Squeezed

into the same amount of space. EE ea

Dur. TSZO0G8s normally display 32 or 64 (ànd now 85) “columns of
text, with' each character: ‘taking ‘up’ the- ‘Same width, no’ matter what
its size. “It seems~-that “we 'should^ be“ able to: "improve “this
somewhat. oa

Actually, tte job has: already "béen' done fór us. "In the Nov.

1985 issue of ‘YOUR SPECTRUM;' in--the, "article "Aft Out ^ of |
Proportion", such”a program ‘ts given? Unfortunately; it “does have“
a number: or. defficiences. “I’ve corrected as many of ‘these ‘as “tare T
practical (though thay can ‘stilt’ be^ annoying at times) "and >
presented it" here for your use.” Note that the Spectrum program, and

my perversion of it here are radically differént in many” ‘ways. ‘If

you’ ve “got the ofa version; you? TL ‘still “have to completely’ retype —
it for ‘the TS208B. | "Stilts they. do: "function somewhat alike» and ee ne

NM

might find the text of' that articte' to be helpful-

For those" “who. have” ‘that original articles the ‘main i tévences '
are: 1) the code is modified to run on a TS2068,; 2? machine ‘code is’:

initially entered through DATA »statementsy,. eliminating the need for

a hex ‘toader, 3) the character fonts are “MUCH, ‘improved; and” you TET

don't have to type in the pixel’ patterns ‘for "each; ` because” my

program derives the patterns from the Timex patternss | already in.
ROM, 4y the “code ‘works as in OVER ‘Or rather. ‘than ‘OVER i; so if ` “you *
print over à space that already contains text, you won't get such `

an awful mess, and 5), the TAR, function is. also implemented, im Amer:

proportional mode. —— Wd aeuo ien
This articie ‘Contains two, programs; "type. in. and 'RUN the "first

one. After a long wait, it vill SAVE, the true. ‘proportional’ printing >

EO S Tas

program to tape.. When, you reload. that. no. waiting — required». i

from here on) you’ i, be E E i P RM 2 '
It starts out with. a little "demonstration. bf proportional" Mod.

printing." This, redefines, the, LPRINT Command, so it. will conflict a

with your use of a printer.. I haven't founc. this to be "any "bother >

in the types of programs I've used it.. in. Still; if. there's"

sufficient interest, it shouldn't. be, too hard. to produce an. add-on .
program that inserts. a "proportional print’. channels- and ` attaches. m

it to an unused. stream.. This, coul.d, al low.= your. , normal- printer. to
work Cin its normal mode). in .conjection. with proportional printing."
on the screen. In the mean time, if your printer supports a COPY
function, that should. work with this program;, as is... a

In: any. ‘casey LPRINT now prints to.the screen. in. proportional"
mode, and. PRINT: continues to work. Like it always. does; so you can,
mix BOTH methods. in. your program at, once. .- However s.. both maintain"

M
eoi oe

o we

their own separate screen.. locations, so you, can easily | print. to en

different. parts of the screen with each. . ni
For, Proportional screen. positionings you can use. | LPRINT AT and
LPRINT TAB commands. However, note that. the old AT and TAB...
11

Vig a = d. T is em SINCE
dunce one. use screen nodrtions- char assume. all characters are 8
pixels. wide..This-would never do for proportional printing, so when

you use AT or, TAB with.LPRINT, you specify the.X.and.Y locations in...

PIXELS, not in characters. This-means you can.place.your characters.

anywhere you. want on the screen, right down to the pixel level. The
BASIC program, from lines 3030 on give a reasonable demonstration
of how it works. ..

up en

Paes T a E

The. YOUR SPECTRUM.. Na also. .included' "xa otont designer
program, which is included here; „but this. is optional.. To move the.

cursor, use the.Q,.6,.0,.and.P keys. Use M .and .N to turn a pixel on
or off. F keeps, the design; D “displays. a character y. .U, displays , the
entire character set and 5S and J save and l oad. the character set.
LOAD in a.SAVEd character set to the main. program , with LOAD ""-CODE
64208. Once loaded Linto the proportional ..print..program; ,. you can
save the program, and, fonts. -together, and never .bother with the
fonts again.

The. proportional printing, fonts require, -one new thing we never.

worried about. before; you have to specify, how- many pixel wide your

character. is.,.To do this, you. design, your. character.. to. touch.. the DN

right most border, of the B -8 character biock you're given. Then;..

in the top row of pixels, you set. each | pixel. that's l in .à valid.

column, for that character. Thus; if your. character is. _be. five.
pixeis wider, simply, set, the right most PN pixels. in, he. top Yr Ow.
Cthose won't be printed on “the, screen; don?t worry de , Don't. „forget,

to include one or, more pixels, for, the spacing . between characters! ..

In the "standard" character. ‘sets | I’ve „chosen to have only one pixel.
width of space between characters, "and, A "blank. space" character is.
4 pixels wide. This. works. fairly nicely büt you san change ` it to
suit your needs. a

An

, ?
Won" t that ‘Took, nice in your next oA e aad ni say* ct teri

xf

243 eU
NOTES from Editors. 2 big “thanks ‘to wes, | “with “all Wes does, and. it

fi—c o [S CET

A, small. sample, of,” "proper tional" “printing is; Unc luded | “here. |

E

Ze t OP

v:

nee =
Slope

is e lot folks, Wes finds ti»e “to ` do projects for Asp. ‘Tine "Designs, a. x.

answer a lota eil, "rite programs," "ind tipe | for” Ta»ily end of

coarse his empioyer. ALL ‘of ” the TS- "Pa»ily "benefits z fro». the.

generosity of Wes,and all the others Who contribute their’ “valuable
time and. talents. to their aser group ‘and neuslettérs and | BBSs. If

you like being. on the receiving end of “the efforts of" datos mes

do not contribute tine,” talent or sweat tó the efforts" of" _ «ser
group, neusletter or BBS, there will soon be fewer or no ‘sources of.
information. Several UGS and: zany BBSS have gaif over the” past.

year, several newsletters have reduce their number ‘or: issues ‘and na

replacerents are in sight. Wake up folks," smel t ut UE and',
lend a hand before it is too late. i B EME TES

The proportional. printing program’ wi T be ‘Uptoaded to` "BUBBS' “under”

name of WESPPP. BAS. The font program may’ be't uploaded: "UBt' a “Vater

date. Data on BUBBS: 1€607)693-3359-7 days-24hours a day— "300 ‘baud on`

from Spm. to Sam weekdays, zs hours weekeriüs- free.’ ie ci ]

Xue ME : ass fne ens f E Ee Eee

On pages 7 thru 10 of '5bhis idend ae in earlier^: issües, “we are
running a printout of the TS2068 ROM disassemb!y by: Wes Brzozowski.
We are running extra copies’ of each’ page of the: RUM" ‘Disassembly .

that we may offer members at the conculsion of the -printout a

complete set. With this issue we have nine sheets or: | 18° pages "of
printout. | Our extra copy run is set at. 50, it" wiil be made"

available on a first’: come ‘first serve- acc Suri pi minimial

donation requested to cover postage.

bo

- o6

7169 LET sminz: LET daddrzdaadr
1170 FOR x=1 TO 8 '

1188 LET -5=0: LET rzPEEK daddr:
LET daddr=daddr+i: IF rzO THEN G
O TO 1228

1190 IF ABS tr/2-INT (r»2))5.1 T
HEN GO TO 1210

1200 LET szs41: LET rsINT ir;z^,
1): GO TO 1196

1210 IF &$€4smin THEN LET sminss
i220 NEXT x

1225 IF smin=@ THEN LET sminzi
1226 LET qzs2t(smin-1)-1: IF smin
=1 THEN LET q=@

1230 POKE daddr-8,4

1240 NEXT c

1250 POKE 64286,15

1250 FOR jus4204 TO 64207: POKE

2000 BEEP 125, 1: BEEP .25,15: BE

EP .25,1: BEEP .25,15

2010 SAVE CHR$ 2534CHR£ 245+CHR$
B«"ING"«CHRS 235+"YOU" LINE 309

e

2828 SAVE CHRS BS2+CHRE 204«CHR£
ISE t THE = —-CHRS$ 175 CODE 64209,
2025 RANDOMIZE USR 64978

2238 GO SUB 8000

2248 STOP 7

S808 CLEAR 54198: LORD ""CODE

. S818 RANDOMIZE USR 54970

3828 GO SUB 8098

3838 LPRINT

` 80640 LPRINT “You can Dou NEU the

BASIC portion auay;"'
S650 .LPRINT "This wilt Turn Off
the proportionat Printing..."
S058 LPRINT "But you can turn it
On again, uith

3878 LPRINT TABS 697 “RANDOMIZE uS

R 64970"

39880 STOP

8008 CLS : PRINT “This is an exa
mpte of the boringotd Printing.
What etse could uUeuant^?"

8218 LPRINT AT 0,50;"Uell, we CO
cnm wish for Proportional Printi

a820 LPRINT "LOOK hou neat it is
, and how easy it is t0 read!"
8038 LPRINT "...Then, count how
mang additional characters. ue
can get on a tine.

8040 LPRINT
6856 LPRINT “REMEMBER... these th
aracters are the SAME SIZE

as -the standard Timex character
Set, Ontuthe Spacing between the
m has been ia ae

. 8868 RETURN l

This is an example of the borings
Canto Ating Uhat etse could we

as

Well, we COULD Wish for Proportional printing; `
Look how neat it is, and how easy it is to read
=Then, count how additional characters
We Can get on a Line,

REMEMBER...these e characters are the SAME
SIZE as the standard Timex character set. Only
thé spacing between them has been changed

Optional Font Designer Program

19 CLEAR 39999

20 LET ba=4a000
100 PRINT HT 2,2; “Ss
130 FOR f=3 TO 10: PRINT AT f,3
; NOOOOOOOORN": NEXT .
xo PRINT Or tier Scere
138 az z

202 OVER 1: PRINT AT a43,bs4; "Ni
"i PAUSE 2: PRINT RT as3,b«4; N"
: PAUSE 2: OVER ð "
210 LET aod SCONE ea ND a<?
)-(INKEYSz"q" a» :
220 LET babs CINKEYS="p™ AND b«7
)-(INKEYSz"O" >

230 IF INKEYs="m" THEN PRINT RT
a43, bee: INVERSE.1;"X"; PLOT b+
168, (8-8) + f
240 IF INKEYs£z"n" THEN PRINT AT
at3abté; TOn: PLOT INUERSE 1;b+1
69, (8-a) +1

250 IF INKEYSz"f" THEN GO TO 30

"260 IF INKEYse"d" THEN GO TO 48
270 IF INKEY$="u" THEN GO TO 58
7275 IF INKEYS="s" THEN GO TO 10
-Eae IF INKEYss"j" THEN GO TO 10

299 GO TO 200
309 INPUT “Which Character? "3C.

5

210 IF LEN c$<¢>1 THEN GO -TO 300
Set IF CODE cs«32 OR CODE cs>12
7 THEN GO TD 362

330 LET csCODE cs

940 FOR f=8 TO 7

350 POKE (c-S2) 28+f+ba,PEEK (1B
468+(f42553): NEXT f: RUN

«00 INPUT “Ohi Ch Character? “se

5
410 IF LEN c31 THEN GO TO 400
420 IF CODE cs<32 OR CODE cs»512
7 THEN GO TO 408
436 POKE 23505,8584: POKE 23607,1
55: PRINT AT 2,283 CS: POKE 23608
,0: POKE 23607,6560.
446 FOR a=8 TÓ 7: FOR bzsO TO 7
€50 IF POINT (b41869,(8-a)24152)-2
1 THEN PRINT AT 84+3,b44; INVERSE

"X": GO TO 470
450 PRINT AT 843, "de: "Qv

NEXT

678 NEXT |: AT
LET bao: GO TO 228

500 FEINE” aT 15,0;: FOR fz32 TO

AES PTNT BRIGHT 2;CHRS fj“ ";

501 PRINT AT 15,0; “7: OVER 1:
FOR fz32 TO 127: boke’ 23506.54:
POKE 23507,2155: PRINT BRIGHT 1;
CHRS fi: POKE 23606,0: POKE 2350.
7,60: PRINT " ux: NÉXT f: OVER 6
: POKE 23506,0: POKE 23507,6090

i E BEEP .1,1: PAUSE 0: PAUSE @

igos INPUT "File Name? “; f$: SAU
E fSCODE 40090,768: RUN
1020 INPUT "File Name? ";f$: LOA
D f$CODE 40000,7868: RUN

13

10 REM Program to perform Prop
ortional Printing.

15 REM An upgraded version of
an entry in “YOUR SPECTRUM", Nov

_ 20 REM Changes include - Modif
ied for TS2058, Supports TAB, be
tter fonts, and works as in OVER
@,. instead of OVER i
. 25 REM When you RUN this progr
am, it will SAVE the actual Prop
ortionatl Print program to tape
30 REM When THAT Program is ru
n, all LPRINT statements will do

Proportional printing to the sc _

reen.

40 REM AT and TAB are supporte
d, but they nou refer. to pixel P
ositions, instead of character P
oSitions.

50 REM It will also be possibl
e to use PRINT, to do non-Propor
tional printing on the screen.
- 68 GO TO 585 à

780 REM Subroutine to decode th
e following Hexadecimal DATA sta

75 READ ns: LET hisCODE ns(4):
LET to=CODE_ns (2) $
80 IF hi»57 THEN LET hishi-7
. 85 IF tooS7-THEN LET lozio-7

: 96 LET n=i6ehi+lo-6i6"

.'985..RETURN t
e DATE ecl ae F as eo" F "A8" j "22" ^ "E
myu c£ gmpge ege cr oe

110 intu. "Or" 5 "3a", "0

fU , eqs i ES e EL 3 "6g"

aée bata ires ue, "FO", OPE, eP.
15e DATA “Fin "FE", "26", "22", "0
160 Data Se ELE ebe", "PE", "1
19g Data "Fb","22","Fe","FE","C
E Date "o5" a r17,7387, "Eg", "F
190° Bat “gén nce", MPE", "FE", "2
poe Data Moe” nna". "Se". "8R" WE
gie DATA- “POT NPE", "CS". “FE” "E
eee age te *
250 DATA "có" "Fi","RP","22","F
24e DATA "gb" ,"20","99","CD","2

E pate “có - 3 se 3e oe à os i2" 4 es ca oe ? oF
260 DATE. “FED "80", "38", "02", "3
- "SF m ose ie e"

272 DATA "ef" A oe ii "29", ^29" , "E

E "32" QUESO ISP
28 -

o eaw, "EE", "ei", "oT" ; "0

269 DATA Rite san", "EA" RE" "P
318 DATA nes P "CD" P "43", UE ; E
320 DATA “cór, "ga" ,"26","32","E `

22","ÉB

930 DATA "FE, 96", "08", "05", "2
34o DATA "2B","22","EE","FE","65
F” $ "SR", ABEL". "FE"

H

360 DATA "gó","28",
BY. "Sb"

@ DATA "CB, 730"

oe uppge u oo ee

380 DATA “a?! "ao",

B" A "ED oe ; ""SB' j
390 DATA "FE" "1A"
2" E "CD oe i uc rdi " "Bg"
400 DATA "S3R","ED",
ig"

4i@ Data "1A", "Ae",
420 DATA Taa" EB",
430 DATA "FE", "C1",
ae cg
"80",
"ee",
wea“
"80"

em?
"WC

oe o D u at

458 DATA "FÉ","FE",

460 DATA "AB", "OR",

“epen apr

sae DATA non 799",

o a OET tri

m 3 ves. ; CFE”, D 7-

560 CATA "CB"; “OF”,
E" OF”, “EE” 5 'ea

mm iy "SC", ae

so DATA “Fin "gr"

585 CLEAR 64199: PRINT AT 108i

Sig DATA "ei". oes,
"AT"

530 DATA "S32","F6",

e" ."Mag'.- LII
s4o DATA “AF” i "32" 3

sso pata "oé" "32",

a» FE er

"Bá",

"mE

"0,
; "SA" : "E

: "EE"
"98",

"B80";

—

"ES",

"ER",

I ap one

S70 DATA "FE", "SB", "67","8B","2.
Pr

"cB"

"Ce"

380 DATA "18","FR","mF","ap","g
tigt,
eB
"F3",
"Bit

name " "2
"SB" "C
"ag" n "4.

"d Lamar:
QUEE n
vage, "p
ene ae

os AF" , "93

“32° i "E
"ee" A "e
“EQ 3 "0

i 08^ i p
Pa = Sas : "o
epa", Rl
"sa", "F,

PALL s. A "o

» "58" ; "E

"EE" J "3
"FEE" ? CDI ad

“This Will Take a While...":

NT ~e-Whu not take a break?”
SSC REM zs2234343224254224RROGÓÓRG
61g FOR j=64978 TO 65356: GO SU

B 70: POKE jn: NEXT

J

700 REM Z3234254423424222232:4 444
728 REM NOU that the machine CO
ee iS in, wetll derive the compr
essed fonts from the stanzard Ti

mex. character set

1000 LET addrzPEEK 38064256 £PEE
K 236507495648: FEL daddrf =542293

1010 FOR c=i TO
1020 LET smin=i6
1030 FOR x=1 TO 6G

1040 LET LsPEEK addr:

adres

LET addfza

1050 IF l«18 THEN LET s=16: GO T

oO 1898

i060 IF («32 THEN LET s=8: GO TO

1090 à
AS IF (<64 THEN LET sz4:

ea TO -

9
4875 IF t<128 THEN LET sz2: GO T

o 109€
1080 LET szi

1090 IF s<smin THEN LET sminss

1100 NEXT x

111€ LET addrzaddr-8

11290 FOR x=i TO 8

1138 POKE daddr, (PEEK addr) *smin
LET daddre

1140 LET aadrzaddf +1:

daddr+i
4450 NEXT x